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Editorial 


U N nuevo año se nos avecina, amigos de MUNDOATARI, presentando 
una serie de desafíos que debemos superar con el propósito de 
dar crecimiento a nuestra revista. 

Antes que nada agradecemos su colaboración personal, al hacer 
posible que la mayoría de las estrategias aplicadas durante el pasado 
año se cumplieran satisfactoriamente. 

En el transcurso del presente año MUNDOATARI proporcionará 
a ustedes la posibilidad de ampliar su configuración ATARI, ofreciendo 
los equipos necesarios, al mejor precio del mercado y con nuestra garantía, 
que significa respaldo y atención permanentes. 

En la línea de software ofreceremos programas originales, producidos 
por SES Sistema, a precio conveniente para la gran cantidad de usuarios 
que se incorporan progresivamente a la Unidad de Disco. 

En este número aparece incluido el facsímil de la revista número 0, 
que por razones de tiempo y cierre de la revista de navidad debió ser 
postergada hasta ahora. 

Aprovechamos de informar a nuestros lectores nuestro cambio de 
domicilio a partir del mes de enero. Por razones de fuerza mayor referidas 
a la autorización de la patente municipal debemos trasladarnos a un 
nuevo local en la calle Los Leones (ver aviso en páginas interiores). 

Con respecto a la definición de material a introducir en los números 
futuros, adelantamos algunas primicias: nos dedicaremos a profundizar 
algunos temas específicos como: sonido, color, player missils y a 
continuar el estudio de lenguajes ASSEMBLER y el FORTH, que iniciamos 
a partir de este mes. 

La estrategia de suscripciones toma un nuevo impulso al favorecer 
a todos ustedes con la posibilidad de adquirir la revista por la mitad de 
su valor en kioskos. 

Esperando que estos anticipos satisfagan sus necesidades e incrementen 
nuesta permanente amistad, esperamos su respuesta y colaboración 
en este nuevo año que se inicia. 


Su editor 
Iván Gjurovic 
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Editor Ivén Gjurovic M. 

Director: Adolfo Torrejón S. 
Representante legal: Lucía Segura G. 
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Casilla: 458-11, Ñufloa, Santiago 
Teléfono: 2320657 
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IÉÜ 


Este mes continuaremos con el desarrollo de la 
instrucción FOR/NEXT por su increíble versati¬ 
lidad para controlar una repetición. 


Tal como lo mencionamos en el número ante¬ 
rior el ciclo FOR/NEXT consta de dos partes: 

— FOR...TO: inicialización con-la opción de la 
definición del rango (STEP). 


— NEXT: control de término del ciclo. 

En el uso de un ciclo es preferible usar la ins¬ 
trucción FOR/NEXT por varias razones: 

1. Requiere menos memoria que un ciclo con¬ 
trolado con IF... THEN. 

2. Su ejecución es más rápida. 

3. Es más fácil de modificar por los programa- 

dores iniciales. \ 
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TUTORIA: continuación 


Para corroborar lo afirmado digite y ejecute 
el siguiente listado: 


0 REM PROGRAMA i 
iO FOR CUENTA-i TO 10 STEP 1 
20 PRINT CUENTA 
30 NEXT CUENTA 


Compare con el próximo listado en que se 
usa la instrucción IF para finalizar el ciclo: 


0 REM PROGRAMA 2 
10 CUENTA=1 
20 PRINT CUENTA 
30 CUENTA=CUENTA+1 
40 IF CUENTA<=10 THEN 20 


A continuación presentamos un listado en el 
que se añade la instrucción STEP como forma de 
controlar los rangos de la repetición: 


0 REH PROGRAMA 3 
10 FOR X=1 TO 20 STEP 3 
20 PRINT "VALOR OE X ";X 
30 NEXT X 
40 PRINT 


UALOR FINAL DE X 


l";x 


Comentario de líneas: 

10 Define la variable control de ciclo (X) entre 
los valores 1 y 20. A su vez define STEP con 
el valor 3. 

20 Edita un mensaje en pantalla para dejar en 
evidencia la acción de la instrucción STEP. 

30 Instrucción NEXT. 

40 Control de término de ciclo. Edita valor final 
de variable X. 


¿Cuál cree usted que es el valor final de X edi¬ 
tado en la línea 40? 

Como consecuencia de la instrucción STEP 
dicho valor es 22. 



El siguiente listado permite observar la posi¬ 
bilidad de abortar un ciclo antes de su término 
normal mediante las instrucciones IF y GOTO. 
Digite y ejecute el listado: 


0 REH PROGRAMA 4 

10 FOR NUMER0=il TO 5 STEP -1 

20 PRINT NUMERO,NUMERO/2 

30 IF NUMERO/2<5 THEN 60T0 50 

40 NEXT NUMERO 

50 END 


Comentario de líneas: 

10 Define el ciclo FOR para la variable NUM. 
El valor inicial es 11 y el final es 5. El valor 
de STEP es — 1. 

20 Observe que esta manera se puede ejecutar un 
ciclo invertido. Se edita el valor de la variable 
NUM y la mitad de su valor. 

30 Define la condición límite del valor de NUM 
para finalizar el ciclo. 

40 Instrucción NEXT. 

50 Fin del programa. 



CICLO ILIMITADO 


El próximo listado impide la finalización del 
ciclo: 


0 REH PROGRAMA 5 
10 FOR SINFIN=1 TO 2 
20 SINFIN=0 
30 NEXT SINFIN 


Comentario de líneas: 

10 Define el ciclo para variable SINFIN entre va¬ 
lores 1 y 2. 

20 Asigna valor 0 a variable SINFIN. 

30 Instrucción NEXT. 
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TUTORIA: continuación 


CICLOS ANIDADOS 

El siguiente listado ilustra 3 ciclos. Dos de 
ellos son internos y muestran la estructura de con¬ 
trol de flujo: 


e REM PROGRAMA 6 
10 FOR Ll=l T0 5 
20 PRIRT "LOOP EXTERIOR :";L1 
38 FOR L2=l TO 5 


iLOOP INTERIOR UNO 


50 REXT L2 
60 FOR L3=l TO 5 

70 PRIRT "LOOP EXTERIOR 005 :»;L3 
80 REXT L3 
90 REXT L1 


Comentario de líneas: 

10 Define el ciclo externo para la variable L1 con 
los valores entre 1 y 5. 

20 Edita el valor de L1. 

30 Define el ciclo para variable L2 entre los valo¬ 
res 1 y 5. 

40 Edita el valor de L2. 

50 Instrucción NEXT para variable L2 definida 
en línea 30. 

60 Define ciclo para variable L3 entre los valores 
1 y 5. 

70 Edita valor de L3. 

80 Finaliza el ciclo L3 inicializado en línea 60. 

90 Instrucción NEXT para ciclo externo definido 
en línea 10. 


L1 


-► L2 


NEXT L2 


-► L3 


NEXT L3 


El próximo listado indica la forma de un ciclo 
anidado con defectos en su construcción: 


0 REM PROGRAMA 7 
10 FOR X=1 TO 10 
20 FOR Y=2 TO 20 5TEP 2 
30 PRIRT X,Y 
40 REXT X 
50 REXT Y 


-► X 

- NEXT X 

- NEXTY 


Comentario de líneas: 

10 Define el ciclo externo para variable X entre 
los valores 1 y 10. 

20 Define el ciclo interno para variable Y entre 
valores 2 y 20 con rango STEP 2. 

30 Edita valores de X e Y. 

40 Instrucción NEXT para ciclo externo. 

50 Instrucción NEXT para ciclo interno. 

Ejecute este programa y observe el error pro¬ 
ducido en pantalla. 

Modifique las líneas 40 y 50 cambiando las 
variables, es decir, en la línea 40 la variable Y que 
corresponde al ciclo interno y en línea 50 la varia¬ 
ble X del ciclo externo. 


INICIALIZAR MATRICES 

El siguiente listado muestra el uso de la ins¬ 
trucción FOR/NEXT en ciclos anidados como 
recurso para inicializar matrices. 


NEXT L1 


Ejecute el programa y verá como los ciclos in¬ 
ternos se repiten las veces definidas en la línea 10 
(5 veces). 

Modifique los valores de línea 10 para com¬ 
probar lo afirmado. 


0 REM PROGRAMA 8 
10 OIM MATRIZ(10,20) 
20 FOR X=8 TO 10 
30 FOR Y=0 TO 20 
40 MATRIZCX,Y)=0 
50 REXT Y 
60 REXT X 
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TUTORIA: continuación 


Comentario de líneas: 

10 Inicializa o dimensiona la matriz M en un for¬ 
mato de 11 x 21. 

20 Define el ciclo para variable X entre valores 0 
y 10. 

30 Define el ciclo para variable Y entre valores 0 
y 20. 

40 Inicializa las localizaciones de memoria asigna¬ 
das para cada elemento de la matriz con el 
valor 0. 

50 Instrucción NEXT para ciclo interno Y. 

60 Instrucción NEXT para ciclo externo X. 

Ejecute este programa y digite a continuación 
en modo directo: 

?M(5, 5) 

El valor resultante será 0. 

¿Qué importancia tiene la inicial ización de 
una matriz antes de utilizarla? 

La importancia reside en la seguridad de que 
las matrices estén limpias antes de ingresar cual¬ 
quier valor. 

Digite en modo directo: 

DIM M(5, 5): ?M(1,1) 

Los valores que se obtienen en esta forma sin 
inicializar no tienen ningún sentido computado- 
nal. Si el valor es igual a 0 es sólo consecuencia de 
no haber usado la memoria para otro fin, o bien 
que el computador ha sido recién encendido. 



APLICACION 

El siguiente listado es un utilitario para con¬ 
vertir números hexadecimales en decimales utili¬ 
zando la instrucción FOR/NEXT: 


0 REM PROGRAMA 9 
60 DIM HEX$(16),IN$(16) 

70 HEX$="0123456789ABCDEF"¡? CHR$(125) 
80 ? :? "INGRESE EL VALOR EN HEXADECIH 
AL";INPUT IN$:IF IM$="" 0R LEM(IN$)>9 
THEN 80 
90 DECIMAL=8 

100 F0R CAR=1 T0 LEN(IN$) 

110 F0R VER=1 TO 16 

120 IF IMS(CAR,CAR)=HEX$(VER,VER) THEN 
160 

130 NEXT VER 

140 TRAP 150:IN$(CAR,CAR)=CHR$CASO(IMS 
(CAR,CAR))+128) 

150 ? :? "ERROR EN INGRESO ";IN$:TRAP 
40680¡GOTO 80 

168 DECIMAL=DECIMAL*16+(VER-i) 

170 NEXT CAR 

180 ? " EL VALOR DECIMAL ES "¡DECIMAL: 
? ¡GOTO 80 


Comentario de líneas: 

60 Define variables alfanuméricas. 

70 Define números de sistema numérico hexa- 
decimal en la variable HEX$. 

80 Ingresa número hexadecimal y define condi¬ 
ciones de error. 

90 Inicializa variable numérica DEC (valor deci¬ 
mal). 

100 Define ciclo para variable CAR (número de 
caracteres) entre valores 1 y el largo del in¬ 
greso (instrucción LEN). 

110 Define ciclo para variable VER entre valores 
1 y 16. 

120 Condición de igualdad entre, el valor ingresa¬ 
do y el contenido en variable alfanumérica 
HEX$ para finalizar ciclo. 

130 Instrucción NEXT para ciclo interno VER. 

140 Elimina error. 

150 Mensaje de error. 

160 Asigna valor del dígito hexadecimal en la va¬ 
riable numérica DEC. 

170 Instrucción NEXT para ciclo interno de va¬ 
riable CAR. 

180 Edita valor decimal. 
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ASSEMBLER 



al 6502 


Continuando con la ejercitación del ASSEMBLER 
presentamos en esta ocasión un programa demos¬ 
trativo de las capacidades del lenguaje de máquina. 


DI BUJO es una rutina para dibujar áreas y lle¬ 
narlas con un color dado. Es indispensable usar el 
ASSEMBLER Editor, promocionado por MUNDO- 
ATAR I en su Catálogo. 

El programa opera en modo gráfico 3 y llena 
un cuadro en la parte superior de la pantalla, per¬ 
mitiendo modificarlo para otros modos gráficos o 
para modificar posiciones en la pantalla. 

Digite el programa comprobando que no exis¬ 
tan errores. A continuación salve el programa en 
diskette o casete con los formatos: 

LISTAD: DI BUJO o bien LIST=#C: 


15 

; REGISTROS RE 

COLOR 

28 

C0LPF8 = $2C4 


21 

C0LPF1 = $2C5 


22 

C0LPF2 = $2C6 


23 

C0LPF3 = $2C7 


24 

C0LPF4 = $2C8 


29 

; VALORES PARA 

COLORES 

36 

ORO = $18 


31 

ROJO = $34 


32 

AZUL = $78 


33 

VERDE = $C4 


39 

; REGISTROS DEL 

CURSOR 

48 

ROMCRS = $54 


41 

COLCRS = $55 


42 

NEMROH = $68 


43 

MEMCOL = $61 


44 

CRSINH = $82F8 


45 

OLDROM = $5A 


46 

OLDCOL = $5B 


47 

FILDAT = $2FD 


48 

ATACHR = $2FB 
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ASSEMBL ER: continuación 



99 ; 

PROGRAMA CENTRAL 

oiee 

*=$600 

ene 

DEV . 

BYTE "Sí" 

•120 

LDX tt$60 

0130 

LDA ft$3 

0140 

STA 

$342,X 

0150 

LDA 8DEV«$00FF 

0160 

STA $344,X 

0170 

LDA 

8DEU/256 

0100 

5TA 

$345,X 

0190 

LDA 8$0C 

0260 

STA 

$34A,X 

0210 

LDA 

83 

0220 

STA $34B,X 

0230 

JSR SE456 

0240 

LDA 

8R0J0 

0250 

STA 

C0LPF1 

0268 

LDA 

82 

8270 

STA 

ATACHR 

0280 

LDA 

80 

0290 

STA 

OLDCOL 

8300 

LDA 

812 

0310 

5TA 

OLDROM 

0320 

STA 

COLCRS 

0336 

STA 

ROMCRS 

0340 

LDX »$60 

0350 

LDA tt$il 

0360 

STA 

$342,X 

0370 

JSR 

$E456 

0380 

LDA 

80 

0390 

STA 

ROMCRS 

0400 

JSR 

$E456 

0410 

LDA 

80 

8420 

STA 

COLCRS 

0430 

JSR 

$E456 

0440 

LDA 812 

0450 

5TA 

ROMCRS 

0460 

JSR 

$E456 

0470 

LDA 

80 

0480 

STA 

ROMCRS 

0490 

LDA 

81 


0500 

STA FILDAT 

0510 

LDX 8$60 

0520 

LDA 8$12 

0530 

STA $342,X 

0540 

JSR $E456 

0550 

STOP JMP STOP 


Digite la instrucción ASM y al cabo de un 
momento aparecerá en pantalla el listado ensam¬ 
blado del programa objeto con su correspondiente 
ubicación en memoria a partir de la página 6. 

Para ejecutar digite la instrucción BUG y 
luego G600, que corresponde al inicio del progra¬ 
ma. En pantalla aparece la imagen siguiente: 



Comentario de líneas: 

20-24 Define localizaciones para registros en color 
en hexadecimal, 

30-33 Proporciona valores para los colores. 

40-48 Define localizaciones de registros del cursor. 

100 Operador que define inicio del programa ob¬ 
jeto. 

110-230 Abre el canal No. 6 y activa modo gráfi¬ 
co 3. 

240-250 Carga el color rojo en el registro $2C4. 

260-270 Pone valdr 2 en la localización ATACHR 
($2FB ó decimal 763). 

280 Carga acumulador con valor 0. 

290 Almacena valor en OLDCOL (columna ante¬ 
rior). 

300 Carga acumulador con valor 12. 

310 Almacena valor en la localización OLDROW. 

320-330 Dibuja puntos para comando DRAWTO. 

350-360 Inicial iza byte para comando DRAW 
($11 ó decimal 17) y lo almacena en la locali¬ 
zación ICCOM. 

370 Ejecuta la rutina del Sistema Operativo. 

380-460 Completa el dibujo del cuadrado. 

470-480 Localiza el cursor en la posición superior 
izquierda de la pantalla. 

490-540 Llena el color especificado usando la ru¬ 
tina localizada en $E456. 


8 


MUNDOATARI 















ASSEMBLER: continuación 


A continuación presentamos el listado ensam¬ 
blado tal como se ve en pantalla: 


MUND@ATARÍ 

COMUNICA A SUS AMIGOS LECTORES 
SU CAMBIO DE LOCAL ATARI AL CENTRO DE PROVIDENCIA 

Venga a conocerlo. Lo esperamos en LOS LEONES 308 



19 ; REGISTROS DE COLOR 

02C4 

20 COLPFO 

= $2C4 

02C5 

21 C0LPF1 

= $2C5 

02C6 

22 C0LPF2 

= $2C6 

02C7 

23 C0LPF3 

= $2C7 

02C8 

24 C0LPF4 

= $2C8 


29 ; VALORES PARA COLORES 

0018 

30 ORO 

= $18 

0034 

31 ROJO 

= $34 

0078 

32 AZUL 

= $78 

OOC4 

33 VERDE 

= $C4 


39 : REGISTROS DEL CURSOR 

0054 

40 R0WCRS 

= $54 

0055 

41 COLCRS 

= $55 

0060 

42 NEUROli 

= $60 

0061 

43 NEWC0L 

= $61 

02FO 

44 CRSINH 

= $02F0 

0O5A 

45 OLDROW 

= $5A 

0058 

46 OID COL 

= $5B 

02FD 

47 FILDAT 

= $2FD 

02FB 

48 ATACHR 

= $2FB 


99 ; PROGRAMA CENTRAL 

0000 

01OO 

*= $600 

0600 53/ 
0601 3A 

0110 DEV 

.BYTE M S:* 

0602 A260 

0120 

LDX *$60 

0604 A903 

0130 

LDA #$3 

0606 9D4203 0140 

STA $342,X 

LDA #DEVít$OOFF 

0609 A900 

0150 

060B 9D4403 0160 

STA $344,X 

060E A906 

0170 

LDA «DEV/256 

0610 9D4503 0180 

STA $345,X 

0613 A90C 

0190 

LDA l$0C 


0615 9D4A03 0200 

STA 

$34A,X 

0618 A903 0210 

LDA 

13 

061A 9D4B03 0220 

STA 

$34B,X 

061D 2056E4 0230 

JSR 

$E456 

0620 A934 0240 

LDA 

IRQ JO 

0622 8DC50 2 0250 

STA 

C0LPF1 

0625 A902 0260 

LDA 

#2 

0627 8DFB0 2 0270 

STA 

ATACHR 

062A A900 0280 

LDA 

#0 

062C 855B 0290 

STA 

QLDCOL 

062E A90C 0300 

LDA 

112 

0630 855A 0310 

STA 

OLDROW 

0632 8555 0320 

STA 

COLCRS 

063 4 855 4 0330 

STA 

ROWCRS 

0636 A260 0340 

LDX 

>$60 

0638 A911 0350 

LDA 

#$11 

063A 9D4203 0360 

STA 

$342,X 

063D 2056E4 0370 

JSR 

$E456 

0640 ASCO 0380 

LDA 

>0 

064 2 855 4 0390 

STA 

ROWCRS 

0644 2056E4 0400 

JSR 

$E456 

0647 A900 0410 

LDA 

>0 

0649 8555 0420 

STA 

COLCRS 

064B 2056E4 0430 

JSR 

$E456 

064E A90C 0440 

LDA 

«12 

0650 8554 0450 

STA 

ROWCRS 

0652 2056E4 0460 

JSR 

$E456 

0655 A900 0 470 

LDA 

*0 

0657 8554 0480 

STA 

ROWCRS 

0659 A 901 0490 

LDA 

11 

065B 8DFD02 0500 

STA 

FILDAT 

065E A260 0510 

LDX 

#$60 

0660 A912 0520 

LDA 

#$12 

0662 9D4203 0530 

STA 

$342,X 

0665 2056E4 0540 

JSR 

$E456 

0668 4C6806 0 550 STOP 

JHP 

STOP 
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ASSEMBLER: continuación 



USR 


La columna USR da cabida en este número 
a una interesante colaboración enviada por un lec¬ 
tor de Arica, don Carlos Hasan V., quien ha inves¬ 
tigado en el movimiento de scrolling fino. 

Su rutina permite mover las localizaciones de 
la memoria ROM por medio del joystick. 

Nuestro lector recibirá un premio de $ 3.000 
en software a eleccción de nuestro Catálogo. 

Respecto a su consulta de utilizar más de 4 
player, es posible sólo aumentar un quinto player 
sacrificando los 4 missiles. 


1 REM Demostración scrolling 

2 REM CARLOS HASAN V. 

3 REH **Mover con el jogstick** 

4 REM 

10 GRAPHICS O:? "ESPERE UN MOMENTO..." 
15 FOR X=0 T0 240:READ A:PONE 1536+K.A 
:NEHT X 

20 A-40120.: PONE 205,A-256*INT(A/256):P 
ONE 206,IMT(A/256) 

25 Z=U5R(1710) 

180 DATA 173,128,2,41,248,208,26,198,2 

83,165,283,201,255,208,18,169,3,133,20 

3,238,205,165,205,201,217 

110 DATA 208,6,169,0,133,283,198,285,1 


73,120,2,41,244,208,26,238,283,165,203 

,201,4,288,18,169,0 

120 DATA 133,203,198,205,165,205,201,2 
55,208,6,169,3,133,203,230,205,162,69, 

165.285.157.4.1.202.202 

130 DATA 202,16,248,173,120,2,41,241,2 

08,26,198,204,165,284,201,255,208,18,1 

69,7,133,204,198,206,165 

140 DATA 206,281,255,208,6,169,0,133,2 

04,230,106,173,120,2,41,242,288,26,230 

,204,165,204,201,8,288 

158 DATA 18,169,0,133,204,230,286,165, 

206,281,233,208,6,169,7,133,284,138,28 

6,162,0,165,286,157,5 

160 DATA 1,24,105,1,232,232,232,224,72 

,208,243,165,283,141,4,212,165,204,141 

,5,212,76,98,228,184 

170 DATA 162,2,169,112,157,8,1,202,16, 

250.162.66.169.114.157.3.1.282.202.202 
,16,248,169,82,141 

180 DATA 72,1,169,65,141,75,1,169,0,14 
1,76,1,141,48,2,133,203,133,204,169,1, 
141,77,1,141 

190 DATA 49,2,169,35,141,47,2,168,8,16 

2,6,169,7,76,92,228 

280 END 
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ASSEMBLER: continuación 


A continuación presentamos la versión ensam¬ 
blada del programa en función USR tratado en la 
página 27. Los comentarios en inglés son fáciles de 
comprender. 


0166 


Systen equates 


0170 

0180 

SAUK5C = $58 ; 

Addr o# screen 

0190 

8ASRET = $D4 J 

BASIC return 

0200 

RTCL0K = $13 ; 

Systen tiwer 

0210 



0220 

; 

For siMplicity, 

ve • 11 let 

0230 


BASIC set UP GRAPHICS 24. 

0240 




0250 

0260 


PLA ; 

tt args; ignore 

0270 

; 

Zero the syste» 

tiners 

0280 



0290 


LOA tt0 


0300 


STA RTCLOK 


0310 

0320 


STA RTCLOK*! 


0330 

; 

This is the screen-fill loop 

0340 

; 




0350 

LDX U32 ; Loop 32 tittes 

0360 

NEXTI 

0370 

LDY «6 ; Init J-loop 

0380 

LDA «255 ; Fill byte 

0390 

NEXT J 

0400 

STA (SAUMSCÍ,Y ; Poke it! 

0410 

IMY 

0420 

CPY «240 ; 240 pokes yet? 

0430 

BNE NEXTJ ; No; do another 

0440 

CLC 

0450 

LDA SAUMSC J Add 240 to 

0460 

ADC «240 ; screen addr 

0470 

STA SAUMSC 

0480 

LDA SAUMSC+1 ; ThiS is a 

0490 

ADC «0 ; 16-bit add 

0500 

STA SAUMSC*1 

0510 

DEX ; 32 loops yet? 

0520 

BNE NEXTI ; No; do another 

0530 


0540 

; Screen ís now filled, so pass 

0550 

; the tiMer readings to BASIC 

0560 

; 

0570 

LDA RTCLOK 

0580 

STA BASRET*1 

0590 

LDA RTCLOK+1 

0600 

STA BASRET 

9610 

RTS J Back tO BASIC! 

• 


Correo 

MUNDOATARI inicia a partir de esta edición una columna 
destinada a acoger la numerosa correspondencia recibida en 
este último tiempo. Por razones de espacio nos reservamos el 
derecho de resumir las cartas publicadas, sin perder el sentido 
origina! de ellas. 



DEFENSA ESTELAR 

En el número 14 de MUNDOATARI 
publicaron ustedes un programa 
para tipiar. 

En la línea 900 surge un error 
que se detecta en el símbolo de los 
dos puntos (:) que separa los tipos 
VR: FOR 

error que hemos tratado de solucio¬ 
nar efectuando cambios de simbolo- 
gía, sin resultados aceptables. 

Agradeceré su aclaración al res¬ 
pecto, para grabarlo para deleite de 
mis hijos, fanáticos de estos pro¬ 
gramas. 

Guillermo Barriga B. 
III. Municipalidad de Coihueco 
Prat No. 683, Coihueco 

□ En realidad no existe tal error. 

VR es el nombre de una variable 
que se asocia al comando READ. 
Por otro lado la instrucción FOR... 


corresponde al estamento siguiente. 
Los dos puntos separan los comandos 
anteriores. 

Desgraciadamente no tenemos 
mayor información acerca del error 
producido, el que podría encontrarse 
también en los DATA de la tír^a 
920 . 

M.A. 


MUNDOATARI 
EN BOLIVIA 

Somos un grupo de profesionales con 
el hobby de los computadores ATA- 
Rl. Al ver su capacidad como elemen¬ 


to formativo y de trascendencia cul¬ 
tural hemos decidido formar una 
sociedad y empezar en nuestro medio 
el trabajo que está tan avanzado en 
vuestro país. 

Hemos elaborado un directorio 
de cerca de 5.000 usuarios ATARI. 

Solicitamos información acerca 
de suscripciones a MUNDOATARI 
y de software educativo de la empre¬ 
sa SES Sistema. 

Estamos dispuestos a colaborar 
con ustedes para que en un futuro 
podamos unir esfuerzos y acrecen¬ 
tar la gran familia latinoamericana 
ATARI. 

Lie. Franklin Poppe A. 

Miguel A. Morales 
La Paz, Bolivia 


MUNDOATARI 
EN COLOMBIA 

Una empresa representante de ATARI 
en Colombia llevó como primicia los 
primeros números de MUNDOATA- 
Rl, pero su despacho se suspendió 
a partir del cuarto número. 

Me gustaría entablar comunica¬ 
ción con ustedes con el fin de suscri¬ 
birme a su revista, que nos parece una 
guía maravillosa para quienes posee¬ 
mos equipos ATARI. 

Carlos Cárdenas P. 

A.A. No.2481, Villavicencio-Meta 

Colombia # 
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DISKETTE 


Dominando 
la 1050 



Este mes trataremos las posibilidades de traspaso 
entre la memoria (área de pantalla) y la diskettera 
a través de un interesante utilitario. 


Este programa es una alternativa para crear 
pantallas usando el set de caracteres disponible en 
el teclado, editando una determinada pantalla y 
luego salvarla en un diskette para uso posterior. 

La estrategia de este programa es mediante el 
I0CB (Input/Output Control Block) y el CIO (Cen¬ 
tral 1/0). 

La siguiente tabla proporciona las localiza¬ 
ciones de los I0CB correspondientes: 


IOCB 

ICCOM 

ICBLL 

ICBLH 

ICBAL 

ICBAH 

1 

850 

856 

857 

852 

853 

2 

866 

872 

873 

868 

869 

3 

882 

888 

889 

884 

885 

4 

898 

904 

905 

900 

901 

5 

914 

920 

921 

922 

923 

6 


Prioridad a pantalla (S:) 



7 Prioridad a LPRINT y LOAD 


ICCOM : contiene la operación a'realizar (7: leer, 
11: escribir). 

ICBLL : byte menor de la cantidad de bytes a 
mover. 

ICBLH : byte mayor de la cantidad de bytes a 
mover. 

ICBAL : byte menor de la primera localización 
de memoria de pantalla. 

ICBAH : byte mayor de la primera localización 
de memoria de pantalla. 



El programa contiene una rutina en lenguaje 
de máquina con la función USR, que permite el 
traspaso rápido de caracteres. 
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DISKETTE 


16 DIM F$(16),ML$(7) 

28 FOR K=1 TO 7:READ A:ML$ÍX>=CHR$CA> .* 
NEKT X 

38 DATA 184, 104,184,178,76,86,228 
48 PRINT CHR$(125) 

58 TRAP 400:OPEN 112,4,0,"K:" 

60 GET 82,KC:IF KC=155 THEN DIR=ll:IO= 
8:GOTO 110 

78 IF KC=27 THEN DIR=7:10=4:GOTO 100 
98 ? CHR$(KC);:GOTO 60 
100 POSITION 2,21:? 11 DIGITE NOMBRE AR 
CHIVO QUE CARGA ":INPUT F$:GOTO 300 
110 POSITION 2,21:? ” DIGITE NOMBRE AR 
CHIVO QUE SALVA "¡INPUT F$ 

300 OPEN ttl,IO,0,F$ 

310 SCREEN=PEEK(88)+256#REEK(89) 

328 STARTHB=INT(SCREEN/256J 

338 STARTLB=SCREEN-256*STARTHB ) 

340 POKE 852,STARTLB:POKE 853.STARTHB 

350 POKE 856,31‘.POKE 857,3 

360 POKE 850,DIR:A=USR(ADR(HL$),10) 

370 CLOSE #1 

388 POSITION 2,21:? " 

II 

385 POSITION 2,22:? " 

II • 

» 

390 GOTO 68 

400 POSITION 2,21:? " 

ii 

405 POSITION 2,22:? " 

■■ • 
i 

428 IF PEEK(195)=138 THEN POSITION 2,2 

lí? " DRIVE NO DISPONIBLE "»FOR PAUSA= 

1 TO 500:NEXT PAUSA:GOTO 370 

430 IF PEEKC195)=170 THEN POSITION 2,2 

i;? '• ARCHIVO NO SE ENCUENTRA '“.FOR PA 

USA=1 TO 500:NEXT PAUSA 

448 GOTO 370 


Al ejecutar el listado la pantalla se vuelve 
blanca, excepto el cursor. Usted tiene control 
sobre las teclas para digitar lo que desee, inclu¬ 
yendo borrar caracteres, insertar líneas, carac¬ 
teres gráficos, inversos y símbolos. 

Se necesitan 2' comandos para efectuar el 
traspaso: la tecla RETURN se usa para salvar la 
pantalla, indicando el nombre del archivo con 
el formato "D: nombre.". 

La tecla ESC se usa para cargar la pantalla 
indicando el nombre del archivo. 

Cada pantalla está en modo 0 y utiliza sólo 
7 sectores de almacenamiento del disco. 



Comentario de líneas: 

10-50 Inicialización. 

60-90 Controla los caracteres desde el teclado, 
condicionando las teclas RETURN y ESC. 
100-110 Pide el nombre del archivo (pantalla). 
300-370 Inicializa valores para CIO usando el 
IOCB 41. 

380-390 Limpia la pantalla. 

400-440 Rutinas de error. # 


MUND®ATARr 

LO ESPERA EN SU 
NUEVO LOCAL ATARI • 

EN EL CENTRO DE PROVIDENCIA 


Excelentes ofertas de inauguración: 

3 casetes con TURBOSTAC 

o bien 

3 diskettes de juegos o utilitarios 
POR $ 1.000 


Venga a conocernos. 

LOS LEONES No 308 
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TIPIANDO 



Este primer juego del mes presenta en pan- 

0":POSITIOM 6,8:? «6;"ALFABETICO" 

talla un auto, varias letras y algunos bloques dis- 

150 FOR T=8 TO 511:POKE SET*T,PEEÍ C573 

tribuidos al azar. 

44* T) ¡MEXT T 

Por medio de las teclas de las flechas se puede 

160 FOR T=0 TO 55 :REAP H:POICE SE T+ T, H: 

dirigir el movimiento del auto para hacer desapa- 

HEXT T 

recer las letras en orden alfabético. 

161 OATA 0,0,0,0, 0,0, 0,1 

Es un simpático juego con animación en 
BASIC y útil para aprender la técnica. 

162 OATA 7,119,34,254,254,34,11»,7 

163 OATA 224,238,68,127,127,60,238,224 

164 OATO 24,90,126,90,24,219,255,195 

165 OOTA 195,255,219,24,90,126,90,24 



100 CAR=3»PAI=1:5C-0:HOX=0:0B5=5 


165 POTA 0,126,126,126,126,126,126,0 

:0L0=193 


167 OATA 255,255,255,255,255,255,255,2 

110 MAX-MAX+5: OBS=OB5+-5 


55 

120 LIM=MAX 


170 GRAPHICS 17:P0KE 756,5ET/256 

138 SET=CPEEKa06)-8)*256:IF PEEKISET+ 


130 P05ITIOH 1,0:? tt6;"AUTO - OLFABETI 

8)=7 THEN 178 


CO M :COLOR 38:PLOT 0,1:ORAHTO 19,1 

140 GRAPHICS 18:P05ITION 8,6:? #6;"OUT 


190 OROWTO 19,21:DRAMTO 0,2i:ORAHTO 8, 


14 


MUNDOATARI 







TIPIANDO 


2 


E 764,255¡GOTO 120 

200 POSITION 1,22:? «6J"PUNTAJE:5C:P 


548 NEO=P:IF NEO<OLO THEN 710 

05ITION 1,23:? «6¡"PANTALLA:PAN 


550 5C=5C+50:LIN=LIH-l:OLD=NEO 

210 POSITION 13,23!? N6;"AUTO:";CAR 


560 POSITION 9,22:? »6;5C 

220 FOR T=1 TO OBS 


570 SOUND 1,10,10,18:FOR T=1 TO 50:NEX 

230 G05UB 39B 


T T¡SOUND 1,0,8,0 

250 COLOR 133:PL0T C, L 


580 IF LIM>0 THEN 400 

260 NEXT T 


598 PAN=PAN+1:IF PAN=6 THEN PAN=1:MAX= 

270 FOR T=1 TO HAX 


0: 0B5=5: 0LD=1‘93 

280 G05UB 390 


600 POSITION 1,9:? 86J" CONGRATULACION 

318 LOCATE C,L,Z¡IF Z=133 THEN 280 


ES ":POKE 764,255 

320 COLOR NEO+160:PLOT C,L 


610 SOUND 2,72,10,8:G05UB 690 

330 NEXT T 


620 SOUND 2,64,10,8¡GOSUB 690 

340 G05UB 390 


630 SOUND 2,68,10,8:G05UB 690 

370 LOCATE C,L,Z:IF Z>=133 ANO Z<=218 


640 SOUND 2,72,10,8:GOSUB 690 

THEN 340 


650 SOUND 2,64,10,8:GO5UB 690 

388 COLOR MANlPLOT C,L:G0T0 400 


660 SOUND 2,72,10,8:G05UB 690 

390 L =1NT(RID(0)*19) +2:C=IN T C RND C0)*18 


670 Q=Q+l:IF Q<11 THEN 610 

)+1:NE0=INT(RND(0)*26)+33:RETURN 


686 0=0:GOTO 706 

400 XC=C:XL=L:T=PEEK (764) 


690 FOR T=1 TO 30:MEXT T¡SOUND 2,0,0,0 

410 C=C+(T=7)-CTr6J . 


:RETURN 

420 L=L+(T=15)-(T=14) 


780 POSITION 10,23:? tt6; PAN: 0LD=193:GO 

430 IF C=XC AND L=KL THEN 400 


TO 118 

448 MAN=(T=6)*1+ CT=7)*2+ CT=14)*3 +CT=15 


710 POSITION 1,0:? #6;" VA ANTES QUE 

)*4 


II 

460 COLOR 8.PLOT XC,XL¡LOCATE C,L,P 


720 COLOR NEO¡PLOT 2,0¡COLOR OLDíPLOT 

465 A=l A l A l A i 


17,0 

470 IF P=38 OR P=133 THEN 518 


738 GOTO 510 

480 IF P>=193 ANO P<=218 THEN 548 


740 POSITION 3,7:? »6j" FIN DE JUEGO *■ 

50O COLOR MAN: PL.0T C,L:GOTO 400 


¡POSITION 4,11:? #6;" PRE5. SPACE " 

510 SOUND 1,72,12,10:FOR T=1 TO 50:NEX 


750 FOR T =8 TO lOiFOR T1=0 TO 78 

T T1SOUND 1,0,O,0 


755 SOUND 2,TI,10,10-T 

520 CAR=CAR~1¡POSITION 18,23:? 86;CAR: 


760 NEXT TI ¡NEXT T¡SOUND 2,8,0,0 

IF CAR=0 THEN 740 


770 IF PEEK(764)<>33 THEN 750 

530 FOR T=1 TO 1580:NEXT T:OLD=193:POK 


780 RUN 


Equilibrio 


El segundo juego es una colaboración enviada 
por don Mario Villarroel. 

Se trata de un juego de destreza con el joy- 
stick para dirigir un símbolo a través de la panta¬ 
lla. Hay varios niveles de dificultad. 

Nuestro colaborador se hace acreedor a un 
premio de $ 3.000 en software del Catálogo, a 
elección. 

Felicitaciones. 


0 GRAPHICS 2+16:5ETCGL0R 2,0,0:SETCOLO 
R 1,8,14:POKE 752,1:POSITION 2,2:? U6; 
"EQUILIBRIO":G0SUB 20000 

1 DIM M(35,10),Y(35,10),7(35,10),N$(7) 
,A$(1),Q(35,10) 

2 OPEN m,4,8,"K:":5=200 

3 K=0:V=3:H=0:P=0:SOUND 8,0,0,0 


4 A=0:X=200:M=N+1:SOUND 0,0,0,8 
9 D=10:G=0:F=10 

18 GRAPHICS 0:SETC0L0R 2,0,0:SETCOLOR 
1,8,14:POKE 752,1:SETC0L0R 4,3,12 
15 P05ITI0H 0,8:? "| 


LIBRIO 


20 POSITION 0,1:? 


RECORD 


0 ";R:P05ITI 


► 
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TIPIANDO: continuación 



PUNTAJE: 


UIDA5 


";P 
1 "ju 


on 28,i:? "G0B ";M$ 

25 POSITIOM e,2:? * 

27 POSITIOM 16,2:? 

35 FOR T-l TO 35 
38 A=IMT(RMD(0)#3) 

45 M(T,10)=A 

50 IF MCT,19)=2 THEM M(T,10)="1 
55 IF T=1 THEM MC1,10>=0 

60 6-G+MCT,10):YCT, 10) -6 

61 Q (T,10)=Y CT,10)+10 

63 IF (KT,18)<=6 THEM Q(T,10)-6 

64 IF RCT,10)>-18 THEM Q(T,10)-18 

65 P05ITI0M 0*T,QCT,10) :? H - M 
70 MEHT T 

80 FOR T=1 TO 35 

85 IF 5TICK(8)=14 THEM J=-l:GOTO 100 
90 IF 5TICK(0)=13 THEM J=l:GOTO 100 
95 IF 5TI0K(0)"15 THEM J=0:GOTO 108 

100 F=F+J:Z(T,10)=F 

101 IF T=1 THEM Z (T,10)=18 

102 Y(T,10)=YCT,10)+10 

105 IF Z(T,10)=Q(T,10) THEM 110 

106 IF Z(T,10)OQIT,101 THEM 1080 
110 P05ITI0M 0+T,ZCT,10):? ">" 

128 FOR PRU5E-1 TO 5:MEHT PAUSE 

121 SOUND 0,T,10,15:5OUMD 8,0,0,0 

122 P=P+18:P05ITI0M 9,2:? P 

123 IF P>R THEM R=P:P05ITI0M 9,1:? P 

124 IF P=5000 THEM G05UB 15009 
130 MEHT T:5=5-10:GOTO 10000 
140 END 

1008 U=U"1 

1081 IF V<8 THEM K=K+1 ______ 

1002 P05ITI0M 13,18:? 

WM" 


TE CAISTE AL PR 


HALA SUERTE!!! 


1003 POSITIOM 15,19:? 

afflaaE":M=H-i 

1004 POSITIOM 17,20!? 

¡FOR T=250 TO 1 5TEP -iíSOUMD 0,T,10,1 
5¡MEHT T:FOR PAU5E=1 TO 258:MEHT PAU5E 

1005 IF K=0 THEM 4 

1006 IF K>=1 THEM 1907 
1807 IF R>P THEM 1180 
1008 IF P>R THEM 1010 

1018 GRAPHICS 2+16:5ETC0LQR 2,0,8:5ETC 

OLOR 1,8,14:P0KE 752,1 

1012 positiom 2,4¡? «6:-L- m»Trn " 

1020 FOR PAUSE=1 TO 500:MEHT PAUSE 
1038 GRAPHICS 0:5ETCOLOR 2,0,0:SETCOLO 
R 4,3,12:SETC0L0R 1,8,14:P0KE 752,1 
1840 POSITIOM 6,6:? "03 


CA5TE EL MEJOR 


ANOTA TU NOHBRE 


QUIERES OTRO JUE 


PUNTAJ 


1050 POSITIOM 6,8:? 1 
:INPUT M$ 

1068 POSITIOM 6,10:? 


GO (S/N)? 


1866 GET H1,X:A$=CHR$(X) 

1870 IF tk$z"y THEM P=0:GOTO 3 
1080 IF A$="M" THEM END 
1090 GOTO 1066 

11O0 GRAPHICS 2*16:SETCOLOR 2,0,8:SETC 

OLOR l,8,14:POKE 752,1 _ 

1110 POSITIOM 2,4:? «6;"CECa0!I3a" 

1120 FOR PAUSE=1 TO 500:NEXT PAUSE 
1130 GRAPHICS 0:5ETC0L0R 2,0,0:5ETC0L0 
R 4,3,12:SETC0L0R 1,8, 14:P0KE 752,1 
1160 POSITIOM 6,10:? ' HUM4 
MiMCBTRB 1 ' 

1166 GET ttl,X:A$=CHR$CX> 

1170 IF AS^'S" THEM P=0:GOTO 3 
1180 IF A$="M" THEH EMD 
1190 GOTO 1866 

10000 GRAPHICS 2+16:SETCOLOR 2,0,0:SET 
COLOR 1,8,14IPOKE 752,1 
10010 POSITIOM 2,4:? It6;"ETAPA "jH 
10020 FOR PAUSE=1 TO 508:MEXT PAUSE 
10030 GOTO 4 

15080 FOR T=1 TO 200I5OUMD 0,T,10,15:M 
EXT T: SOUND 0,0, 0,0 

15001 V=M+1¡POSITIOM 25,2:? M 

15002 RETURN 

28000 POSITIOM 2,4:? tt6; M por" 

20001 POSITIOM 2,7:? «6; 'lEHEKHHEjB 

BH1 11 

20002 FOR PAUSE=1 TO 500:SOUND 0,PAUSE 
,18,15:NEKT PAUSE:SOUND 8,0,0,0 

20003 RETURN 
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PRDGRAMAR 



MUNDOATARI felicita a nuestro colaborador de 
Concepción, don Gabriel Cerda Quezada, y publica 
su programa de Notas para una Asignatura, dirigi¬ 
do a profesores y alumnos que en época de vaca¬ 
ciones tienen disponibilidad de tiempo para digitar 
y analizar el listado adjunto. 

El premio por su trabajo es de $ 7.000 en 
software de nuestro Catálogo a elección. Felicita¬ 
ciones, señor Cerda. 


1 REM PROGRAMA PE ARCHIVO PARA UNA 

2 REM ASIGNATURA 

3 REM GABRIEL CERDA QUEZADA 

4 REM SOCIO Nro. 68-575000-5 

5 REM 

6 REM CONCEPCION 

7 REM MUI REGION 

8 REM C H I L E 

3 REM*»*»»***»***** 

20 REM NOTAS PARA UNA ASIGNATURA 

25 DIN A5IG$(16),CUR$(3),N0M$C25),R$(3 
),B$C65),ARCH$ (6568) 

26 1=12: DIN NCI),NK$C3) 

40 B$=" " :B$ (65) =" ":B$(2) = B$ 

50 ARCH$=" " 

68 GRAPHICS 2:P0KE 82 f 8:P0KE 83,38:P0K 
E 752,i:P0KE 53774,64:PQKE 16,64 
65 POSITION 0,2:? 06; 

a " 

70 ? : 


Creado por: Gabriel Cerda fi. 


72 ? 

IBH" 


98 DIM S0RT$E169),BUFFER$(256) 

95 FOR 1=1 TO 169:READ A:S0RT$ ÍI,I) = CH 
R$(A):NEXT I 

97 GRAPHICS 0:POKE 82,O:POKE 83,38:P0K 
E 752,1:POKE 53774,64:P0KE 16,64 
100 GOSUB 520O:G0SUB 6000 
102 PONE 53774,64¡POKE 16,64:P0KE 752, 
1 

105 CLOSE HISOPEN «1,4,8, »K CHR$ (1 
25) 

108 POKE 53774,64:POKE 16,64:POKE 752, 
1 

110 TRAP 110: POSITION 10,3.‘? ■ «TTilMJ 

MM" 

115 POSITION 3,5:? "1- Listado" 

120 POSITION 3,7:? "2- Ingreso de Dato 
s" :ZP=0 

125 POSITION 3,9:? "3- Modificar Datos 

■ l 

130 POSITION 3,11:? "4- Eliminar Perso 
ñas" 

135 POSITION 3,13:? "5- iMpriNir" 

140 POSITION 3,15:? "6- Ordenar Listad 
o" 

145 POSITION 3,17:? "7- Terwinar" 

147 POSITION 22,22:? ";NP 

158 POSITION 1,20:? "ELIJA UN NUMERO í 
";:GET H1,A:R$=CHRS(A) 

168 IF R$<"1" OR R$>"7" THEN ? CHR$C25 

3):GOSUB 6518:GOTO 158 

178 TRAP 48080:ON MAL (R$) GOTO 508,180 

0,2800,3000,3588,4800,5000 


(continúa en página 29) 
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Esta columna pretende dar ciertos consejos y tru¬ 
cos para una programación más eficiente. Ella se 
dirige a personas que tienen conocimientos básicos 
de programación. 


1. La estructura del programa: 

Si bien el ATARI BASIC presenta problemas 
de estructuración un programador experimentado 
puede disminuirlos estableciendo un esqueleto en 
sus líneas de programación. 

El rango de líneas de programa abarca desde 
la número 0 a la 32767. 

Las rutinas generales de un programa tienen 
gran similitud, aunque los objetivos sean diferen¬ 
tes, como por ejemplo: rutinas de pantalla, ingreso 
de datos, validación de datos, lectura veloz del 
disco, movimiento de áreas de memoria con uso 
del IOCB, etc. 

Una estructura clásica puede ser la siguiente 
asignación de líneas: 

0-9 Titulación del programa 
10 Dirigida con instrucción GOTO a la rutina de 
inicialización. 

130-599 Rutina de ingreso por teclado. 

600-605 Rutina de pausa. 

1000-1999 Programa central específico. 


2000-9999 Subrutinas de uso común. 
10000-10999 Líneas de DATA. 

11000-15999 Subrutinas gráficas. 

16000-16999 Subrutinas de joystick, cursor, pla- 
yer/missil, set de caracteres, etc. 

17000-19999 Rutinas de acceso al diskette. 
20000-29999 Rutinas de sonido. 

30000-31999 Rutinas de pantalla y efectos espe¬ 
ciales. 

32000-32767 Inicialización. 


2. Uso de Instrucción REM: 

Los comentarios con REM se ubican en el pri¬ 
mer número del área respectiva. 

3. Valores numéricos constantes: 

Un valor numérico cualquiera (ej. 10) requiere 
de 7 bytes de memoria. Al ser usado como un con¬ 
junto de variables requiere de 1 solo byte. 

Supongamos que los valores 0, 1, 2, 4, 8, 16, 
128, 256 se usen reiteradamente en un programa. 
El siguiente listado los asigna a las variables Z0, 
Z1, etc, hasta la Z256. 

Para usar el valor 1 se utiliza entonces la varia¬ 
ble Z1. 
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BASIC 


32266 RF:M 6AI ÜRE5 PARA MARIABl t ? 

32216 RE5T0RF 3227B:READ ZB, Zi, Ll,U t l 
4 Z1B/ Z11 ,Z12 # Í t3,Z14,Z 

15,Z16,Z25Í¡,7?56 

32220 DATA 6,1,2,3,4,5,6,7,5,?,16,11,3 
2,13,14,15,16,255,256 



4. Uso de función USR: 

MUNDOATARI, desde la creación de esta 
revista, ha estado consciente de las ventajas de la 
instrucción mencionada y la ha incorporado como 
columna permanente en sus páginas. 

El uso exhaustivo de la función USR en la 
programación BASIC produce ventajas considera¬ 
bles en la rapidez del programa. 

La búsqueda y optimización de estas rutinas 
debe llegar a constituir una serie de subrutinas 
con carácter de librería de uso permanente en 
la programación. 

Para una librería de este tipo es necesario 
preparar un índice con los siguientes datos: 

— Ubicación en memoria, 

— Función específica, 

— Parámetros de acceso, 

— Significado de cada parámetro, 

— Limitaciones de la'rutina. 


5. Uso de AUTORUN: 

Para optimizar la presentación de su progra¬ 
ma es necesario que el mismo contenga un pro¬ 
grama inicial llamado AUTORUN.SYS, con ins¬ 
trucciones de carga de otro programa presente 
en el menú o programa central del diskette (ver 
al respecto en MUNDOATARI No. 17). 


6. Menú de opciones: 

La estructura de un programa de multitareas 
puede optimizarse en mayor grado con el control 
de un menú de acceso, de tal forma que en la par¬ 
tida se cargue el menú que permita direccionar 
hacia diferentes bloques precisos del sistema. 


7. Protección del listado: 

Los listados requieren de una protección para 
impedir que sean listados por el usuario. 

Para ello puede utilizar la siguiente rutina 
localizada en la última línea de programación: 


16 REM PROGRAMA PROTECCION LISTADO 
3276? PÜKE PEEM138) ♦256*PEEKCÍ33) +2,0 
:5AUF “D:NONBRE,EKT":HFM 


Para aplicar este listado debe tener una copia 
abierta del mismo para realizar posibles modifica¬ 
ciones futuras. Luego digite en modo directo: 


GOTO línea de esta rutina bajo el nombre definido. 



8. Protección del medio magnético: 

— Casete: como consecuencia de la fácil dupli¬ 
cación de audio los sistemas de protección 
vía programación son poco seguros. 

— Diskette: existen diferentes tipos de protec¬ 
ción, de los cuales mencionaremos los más 
usados: 

a) Modificación del directorio: permite crear 
un DOS particular con una ubicación deter¬ 
minada del directorio. 

b) Creación de sectores malos: los que im¬ 
piden la duplicación del disco mediante el 
DOS. 

Hay en todo caso copiadores capaces de dupli¬ 
car malos sectores. 

c) Malos sectores con acceso del programa: 
esta técnica requiere crear malos sectores che¬ 
queados por el mismo programa. La duplica¬ 
ción requiere reproducir un sector defectuoso 
en las mismas condiciones. 

d) Técnicas avanzadas: considerando el uso 

de formatos combinados en un mismo disco, 
lo cual impide la duplicación completa de la 
información. % 
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EQUIPOS 


Impresora 

lüBüi 



Las consultas de nuestros lecto¬ 
res nos inducen a emitir un in¬ 
forme acerca de las capacidades 
de esta impresora. 


Los antiguos modelos de im¬ 
presoras para computadores 
ATARI (1029, 1027, Seikosha 
y XM-801) provocan desencanto 
en los usuarios al utilizarlos con 
los excelentes programas de im¬ 
presoras disponibles para el ATA- 
Rl, tlaes como: Printshop o 
Newsroom. 

Este hecho motivó aM UN DO- 
ATAR I a seleccionar una impre¬ 
sora que por precio y potenciali¬ 
dad resuelva este problema. El 
modelo final quedó como la Pa¬ 
nasonic 1080i, cuyo precio en 
nuestro Catálogo es inferior a la 
XM-801 y sus características son 
superiores en los siguientes as 
pectos: 

1. Velocidad: 144 cps en lugar 
de los 100 de la XM-801. 

2. Compatibilidad: dado que es 
Epson compatible, trabaja efi¬ 
cientemente los software ya 
mencionados. 

3. Compatible con ST: utilizan¬ 
do el cable correspondiente. 

4. Compatible PC: utilizando el 
cable correspondiente. 

5. Características gráficas: cali¬ 
dad excelente como lo ilus¬ 
tran las muestras siguientes: 


6. Set de caracteres: el modelo 
"i" contiene el set internacio¬ 
nal de caracteres. 

7. Manual: la impresora contie¬ 
ne un manual de 112 págs. 

8. Cintas: de tipo cartridge, in¬ 
tercambiables y de bajo pre¬ 
cio. También disponibles en 
el Catálogo MUNDOATARI. 

9. Tipo de letra: imprime con le¬ 
tra de calidad, para trabajar 
como máquina de escribir. 


10. Papel: usa hojas sueltas o 
formulario continuo. 

11. Interfase: para el ATARI re¬ 
quiere un modelo que se pro¬ 
porciona en el Catálogo a un 
costo de $ 6.000 más IVA. 

Por estas 10 razones hemos ¡n- 
clui'do este modelo de impresora 
para usted, amigo usuario, que 
busca lo mejor y a bajo precio. 
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MUNDOATARI, consciente de 
la necesidad de los usuarios por 
mejorar sus configuraciones , ini¬ 
ció el año pasado una estrategia 
de venta para colocar a su alcan¬ 
ce este periférico. 


Muchas interrogantes se plan¬ 
tea usted seguramente al mo¬ 
mento de decidir la compra de 
un Drive (Unidad de Disco). 
¿Cómo es este modelo en rela¬ 
ción a la 1050 o a la 810? 

El siguiente cuadro compara¬ 
tivo de las velocidades de acceso 
contesta un aspecto de dicha 
consulta. 


Otro aspecto importante se 
refiere a la capacidad de almace¬ 
namiento: 

— La 810 almacena 720 sectores 

de128bytes =90 Kb. 

— La 1050 almacena 1024 sec¬ 
tores de 128 bytes = 128 Kb. 

— La XF-551 almacena 1440 
sects. de 256 bytes = 360 Kb. 

El precio de la XF-551 en el 
Catálogo MUNDOATARI es de 
$ 75.990, lo que permite poner 
a su alcance este periférico, ya 
que es un 18 °/o inferior al pre¬ 
cio normal de mercado. 

El Sistema Operativo para 
formatear la capacidad total de 
la diskettera no ha sido produ¬ 
cido masivamente por el fabri¬ 
cante. Pero MUNDOATARI, 
pensando en usted lo tiene en su 
poder para el análisis de su equi¬ 
po. Como exclusividad propor¬ 
cionamos una reproducción de 
la pantalla inicial de este nuevo 


Sistema Operativo. 

Para aquellos usuarios que ad¬ 
quieran su XF-551 en MUNDO- 
ATAR I existirá en el futuro la 
posibilidad de obtener sin costo 
una copia de este software. 

MUNDOATARI proporciona 
otro Sistema Operativo que per¬ 
mite formatear igualmente los 
360 Kb. mencionados, el Sparta 
DOS, en diskette, con manual 
en español. Además se entrega 
un diskette formateado con los 
360 Kb. completo de juegos, lo 
que permite apreciar la magni¬ 
tud de almacenamiento. 

Considerando la necesidad de 
información técnica para este 
Software MUNDOATARI ha es¬ 
tado publicando información al 
respecto en números anteriores. 

Por estas razones, la elección 
de este periférico tendrá mayo¬ 
res ventajas si lo hace con la 
garantía y respaldo de MUNDO- 
ATAR I. A 


VELOCIDAD 
COMPARATIVA 
DE DRIVES 
ATARI 


Tipo de 
Drive 

Formatear 
720 K 

Escribir 8 Kb 

Leer 

8 Kb 

Escribir 32 Kb 

Leer 

32 Kb 

c/verif. 

s/verif. 

c/verif. 

s/verif. 

810 

0:35 

0:27 

0:14 

0:08 

1:44 

0:50 

0:31 

1050 

0:36 

0:24 

0:10 

0:08 

1:27 

0:33 

0:31 

XF-551 

0:26 

0:22 

0:09 

0:07 

1:23 

0:31 

0:20 
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MEMORIA 



De byte 
en byte 


REGISTRO DE MODO DE CARACTERES 

Localización 755 ($2F3) 

El set de caracteres tiene una posibilidad de 
control de edición que es manejada por esta loca¬ 
lización. 

En el cuadro siguiente se puede observar los 
cambios operados por los valores entre 0 y 7 que 
se almacenan en la localización 755 con la instruc¬ 
ción POKE. 


Valor decimal 

0 

1 

2 

3 

4 

5 

6 

7 

CURSOR 









Transparente 

X 


X 


X 


X 


Opaco 


X 


X 


X 


X 

Presente 



X 

X 



X 

X 

Ausente 

X 

X 



X 

X 



CARACTERES 









Normales 

X 

X 

X 

X 





Invertidos 





X 

X 

X 

X 


El cursor puede ser visible o invisible, transpa¬ 
rente u opaco. Los textos pueden modificarse tam¬ 
bién en normal o inverso. 


El listado siguiente permite apreciar un ejem¬ 
plo del efecto destellante de un texto: 


Í6 

KEH PRUliR^Hfl 

L OC. 755 

15 

? CHRSCÍ25) 


26 

PRIH1 



30 

POKt 

755,301 

(8) *4) 

46 

A.t/'l 



50 

GOTO 

3Ó 



El próximo listado produce un efecto parpa¬ 
deante del cursor, el que es activado en el Verti¬ 
cal Blank Interrupt: 


5 REM MilMí M 
1G FOR H=1664 TO 1688 
15 REDO A:POKE X,A:MEXT X 
70 POKE 548,128!POKE 549,6 
25 OATA 8,72,165,20,41,16,74,74,74 
30 DATA 141J243,2,104,48,76,98,228 


LOCALIZACION INICIAL DE MEMORIA 

LIBRE DISPONIBLE _<_ 

Localizaciones 743-744 ($ 2E7, $ 2E8) 

Si encendemos el computador sin conectarlo 
con el Drive podemos averiguar el primer byte 
disponible en memoria RAM al digitar: 

? PEEK(743) +256 * PEEK(744) 

El valor de retorno es 1792 ($ 700 hexadeci- 
mal). 

Esta localización es útil para reservar espacio 
de memoria, desplazando el puntero hacia otra 
localización superior. 

La siguiente rutina demuestra con la función 
USR la aplicación mencionada: 


10 DIM ME$(24): PRO =700: REM número de 
bytes que se desea reservar ** 

15 Hl = INT (PRO/256): LO = PRO—256*Hl 
20 FOR X = 1 TO 24: READ A: ME$(X)=CHR$ 
(A): NEXTX 

30 ME$(6, 6) =CHR$(LO): ME$(14, 14) =CHR$ 
(Hl) 

40 Z = USR (ADR (ME$)) 

50 DATA 24, 173, 231, 2, 105, 0, 141, 231, 2, 173, 
232, 2, 105 

60 DATA 0, 141, 232, 2, 169, 0, 133, 8, 76, 0, 160 ^ 
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Educación 


Estas vacaciones entregamos en la columna Edu¬ 
cando con A TARI nada menos que dos programas 
para tipiar, que muestran aspectos interesantes de 
las posibilidades educativas del A TA fíl. 


1. HISTORIA 

Este programa contiene una pequeña biogra¬ 
fía del procer chileno Bernardo O'Higgins. Sedes- 
taca en él el uso de caracteres internacionales, la 
forma de edición en pantalla y el cambio de pá¬ 
ginas. 

Digite y ejecute el siguiente listado: 


18 DIH TEXTOS(608) 

28 LT=1 

25 REM *#* COLORES ? *# 

28 GRAPHICS 0:POKE 756,284 
30 READ TEXTOS 

35 IF TEXTOS:"" THEN GOTO 200 
40 IF TEXTO$="FIH" THEH END 
50 FOR 1=1 TO LEN(TEXTOS) 


60 IF TEXTOS(1,1)="0" THEH PRIHT :G0T0 
150 

65 IF TEXTOS (1,1) =V THEH TEXTOS (1,1) 


70 IF TEXTOS(1,1)="!" THEH TEXTOS(I.I) 
=CHR$(0) 

88 IF TEXTOS(1,1)="tt" THEH TEXT0$(I,I) 
=CHRS(20) 

98 IF TEXTOS(1,1)="$" THEH TEXT0$(I,I) 
=CHR$(96) 

100 IF TEXTOSd, I) ="X" THEN TEXTOS (1,1 
)=CHR$(14) 

110 IF TEXTOSd, I):"*" THEN TEXTOS (1,1 
)=CHR$(13) 

120 IF TEXTOSd, I)="<" THEM TEXTOS (1,1 
)=CHRS(22) 

130 PRIHT TEXTOSd,»; 

140 FOR J=1 TO LTlHEXT J 
150 NEXT I 
160 GOTO 30 

200 REH ** ESPERA IRETURN) *# 

218 PO5ITI0N 2,22:? "PRESIOHE [RETHRH1 
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EDUCACION: continuación 


PARA SEGUIR " 

228 CLOSE «ÜOPEM ttl, 4, 0, "K: “ 

250 GET ttl, A 

240 IF AO155 THEN 230 

258 POSITIOH 2,3 

260 FOR 1=1 TO 21:? CHR${156);:NEXT I 
278 POSITIOH 2,2:GOTO 31 
5088 OATA > BERNARDO O'HIGGINSee 
5085 OATA t Don Bernardo O'Higgins er 
a hijo deiegobernador de Chile den 
AwbrosioeO'Higgins y de do<a Isa 
5010 OATA bel RiquelMe.eNaciX en Chill 
•n Viejo el 28 de agos-ito de 1778.G 
5815 DATA 8 Era un ni <0 nuy peque(o c 
uando fueíalejado de su Madre para se 
r entrega-ido al cuidado de una fani 
5620 OATA lia adinera-Gda de Talca. Al 
1$ le visitx se padreGcuande ten$a S 
a<osj esa fue la unicaGoportunidad e 
5025 OATA R que lo vio.i 
5038 OATA G Posteriórnente fue envia 
do a estu-ediar a Lima y cuando cumpl 
iX 14 a<050 

5035 DATA fue enbarcado por orden de d 
on Anbro-Gsio para que continuase su 
fornaciXnGen Inglaterra.0 


5848 OATA 

5845 DATA ♦♦Separado de su madre y de 
su tierraGnatal/ sufr$o Muchas anargur 
as y pe-Gnalidades. 

5850 DATA 0 En sus estudios tuvo ttxit 
o y siendoOya un joven bien formado, 
conoció a 

5855 OATA iun personaje extraordinario 
:Francisco8de Miranda. Este era un pat 
riota ve- 

5860 DATA Rnezolano que viv$a en 
Inglaterraepreocupado de inpulsar la 
enalte i pa- 

5065 DATA eciXn de las colonias de Esp 
a<a. Espe-0raba obtener la ayuda de 
1 gobierno 

5870 DATA einglts.G O'Higgins se conv 
irtiX en adNiradorGde Hiranda y conpre 
ndiX que deb$a co- 

5075 DATA 0laborar en sus planes. JurX 
dedicarseGpor couplet© a la causa d 
e la inde- 

5080 OATA ependencia de Chile y de 
AMltrica yedesde entonces entregX su v 
ida a eseeideal. 

6000 DATA FIN 



2. ESTRELLAS: 

El programa consiste en un cuestionario de 
varias constelaciones estelares. 

Presenta un esquema de una constelación y 
pregunta por su nombre. En caso de error presen¬ 
ta la respuesta acertada. 

Digite el siguiente listado para comprobar sus 
conocimientos del tema: 


10 REH ** ESTRELLAS ** 

28 DIM N0HSU.5) ,RC$C20),RU$C20),XC10), 
RCD$(20):G05UB 4810 
25 FOR 1=1 TO 10:READ A:MCI) =A:NEXT I 
27 DATA 85,76,72,85,60,85, 25,25,50,100 
30 ? * , N*".SETCOL0R 2,0,10 ¡SETCOLOR 1,0, 
1:5ETC0L0R 4,0, 6:POKE 752,0 
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EDUCACION: continuación 


40 PO5ITI0N 9,5:? 1 
58 POSITION 5,10:? 
PUT 0OHS 


1AX. IE LETF 


7SPR ' 


"TU NOMVRE ES:";:IN 


55 PTJE=0:NP=1 


68 ? "N":SETCOLOR 2,0,1¡SETCOLOR 1,8,1 
0: SETCOLOR 4,0,1:POKE 752,1 
78 position i5,i¡? "HSHaKH" 

86 POSITION 2,3:? "PREGUNTA lo ";NP 
98 POSITION 2,5:? N0M5;" : "}PTJE;“ PT 
5 ." 

94 IF PTJE>=MP THEN Í*=PTJE 

95 POSITION 2,7:? "HAX .PUN TU ACIOI:HP 
PT5." 


98 F0R 1=0 TO 30:POSITION 1,0:? CHR$(1 
8) .'POSITION 1,1?:? CHR$(18): IEXT I:P0K 
E 752,0 

100 L=INT(RND(0)*12> :L=L+1000 

110 RESTORE L 

120 READ A, B 

130 IF A=-l THEN 145 

140 POKE 752,1: PO5ITI0N A, B: ? CHR$(20) 

¡GOTO 120 

145 RESTORE L+2081 
148 READ RC$,RCI$ 


150 POKE 752,0:POSITION 2,20:? "CUAL E 
S EL NOMBRE DE LA CONSTELACI0N RUE SE 
NUESTRA EN PANTALLA";¡INPIT Rl$ 

160 IF R0$=RC$ OR RU$=RCD$ THEN PTJE=P 
TJEflOÜF PTJE>=H> THEN HP=PTJE:GO5U0 


500:GOTO 170 

165 G05UB 300iGOSUB 600 

170 NP=NP+1:IF NP=11 THEN 200 

180 GOTO 60 

200 ? "6":SETCOLOR 2, 0,10¡5ETC0L0R 1,0 

,1 ¡SETCOLOR 4, 0,6 :POKE 752,0 

210 POSITION 14,4:? " 1:1*1 

220 POSITION 4,9:? NOM$;" T0 PUNTAJE F 

UE 0E: ,, ;ptje;" pts." 

225 POKE 752,1:F0R 1=1 T0 38:POSITION 


1,14:? CHR$(20) ¡POSITION 1,18:? CHR$C2 
0) ¡NEKT I 

230 POSITION 2,16:? "DESEAS JUGAR DE N 
UEVO 1=51/2=00 *•; ¡INPUT OP 
248 IF 0P=1 THEN 30 
250 GRAPHICS 0 :END 

300 POKE 752,1:F0R 1=18 TO 9 5TEP -1 :P 
OSITION 0,1:? ■ 

":K=kM:NEXT I 


310 POSITION 10,13:? ' lüaSTi-HMiHTgÜg») 
RC$:RETURI 

586 ? POKE 752,1: POSITION 5,9:? "! 
!!!! CORRECTO!!! !! ": L=57:H=45:P 


=45 ¡FOR A=1 TO 6:S0UNP 6, P, 18,14 


510 FOR H=1 TO 180:NENT H:P=L:L=lf:H=P: 
NEXT A:SOUND 8,0,0, 8:RETUIN 
600 REH ** SONIDO DE ERROR ** 

610 FOR X=1 TO 5:S0IN» 0,X(X),12,10:FO 
R Y=1 TO X(X?5)¡NEXT Y:FOR Y=10 T0 0 5 
TEP -l: SOUND 0,XCX1,12,XCX+5J 
620 NEXT Y¡NEXT X:S0UND 0,0,0,0:RETURN 

1000 DATA 9,11,11,14,3,17,13,13,13,14, 
13,15,15,18,18,14,17,15,18,16,15,16,-1 
,0 

1001 DATA 13,12,17,9,18,13,21,13,20,17 
,17,16,-1,0 

1002 DATA 10,9,16,10,3,12,14,16,20,12, 

“ 1 # • 

1003 DATA 11,16,11,13,14,11,17,15,28,1 

4.21.12.21.11, -1,0 

1004 DATA 11,13,15,10,21,10,13,.15,17,1 
6,21,15,18,13,-1,0 

1005 DATA 11,16,14,11,20,9,17,16,-1,0 

1006 DATA 15,10,21,12,15,13,18,18,23,1 
4,-1,0 

1007 DATA 18,9,20,13,22,9,18,18,17,14, 

17.11, -1,0 

1088 DATA 19,14,23,12,27,11,23,18,15,1 
5,20 ,9,-1,0 

1009 DATA 14,9,15,15,19,13,25,13,22,16 

,- 1,0 

1010 DATA 15,15,19,10,25,11,22,16,-1,0 

1011 DATA 18,18,22,16,23,14,24, 11,25,9 
,28,9,29,12,-1,0 

3081 DATA ORION,ORION 

3002 DATA LYRA,LYRA 

3003 DATA CETUS,CETUS 

3004 DATA OSA MAYOR,URSA HAJOR 

3005 DATA AOUILA.AGUILA 

3006 DATA PHOENII,FENII 

3007 DATA CEPHEUS, CEPHEU5 

3008 DATA LEPUS.LEPUS 

3009 DATA CYGNU5,CISME 

3010 DATA CASSIOPEIA.CASIOPEA 

3011 DATA DELPHINU5, DELFIN 

3012 DATA OSA HEROI, RRSA MINOR 

4000 GRAPHICS 17:P05ITION 5,7:? »6; "es 
trel las":POKE 712,152 :POKE 789,0 
4018 FOR 1=15 TO 6 STEP -0.2:POKE 709, 
ABSCI-15) 

4020 FOR 14=1*4 TO 1*2 STEP llSIUND O, 
W, 10,1 ¡NEXT M.'NEIT I:SDLMD 8, 0, 0, 0 
4830 P05ITI8N 3,7:? U6j” 

4040 FOR T=1 TO 200¡NEXT T 
4050 GRAPHICS 0:RETUIN 
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TUTORIA 



MUNDOATARI presenta en este número el uso 
del lenguaje FORTH, comparándolo con otros 
lenguajes corrientes, para que nuestros lectores 
puedan capacitarse en otro medio de comunica¬ 
ción con el computador. 


Iniciaremos esta columna describiendo algunas 
ventajas del FORTH: 

Para demostrar la capacidad de velocidad digi- 
te el siguiente listado, que se encuentra en BASIC y 
utiliza los timers internos (localizaciones 19 y 20) 
para medir el tiempo de ejecución: 


140 GRAPHICS Z4 
150 REN 

160 REM * ZERO SYSTEM JIFFY TIMERS 
170 POKE 19,0:POKE 20,0 
180 REM 

190 REM * FIHD ADORESS OF 5CREEN 
200 SCREEM=PEEK(88J+256*PEEK(89) 
210 REM 

228 REM * SCREEH-FILL LOOP 
230 FOR 1=1 TO 32 
240 FOR J=0 TO 239 
250 POKE 5CREEN+J,255 
260 NEKT J 

270 SCREEH=5CREEN+240 


300 REM * DETERMINE FILL TIME 
310 JIFFIE5=PEEK C20) ♦256WEEK C19) 
320 REM 

338 REM * DI5PLAY FILL TIME 
340 GRAPHICS 0 

350 PRINT JIFFIE5;" JIFFIE5":END 


Comentario de líneas: 

140 Modo gráfico 24. 

170 Inicializa los timers (19 y 20). 

200 Asigna a variable SCREEN la localización ini¬ 
cial de pantalla en la memoria. 

230 Inicia ciclo para variable I (ciclo externo). 

'240 Incializa ciclo para variable J (ciclo interno). 

250 Modifica contenido de una localización corres¬ 
pondiente a pantalla. 

260 Instrucción NEXT para ciclo interno. 

270 Incrementa la variable SCREEN en 240 (co¬ 
rrespondiente al ciclo interno). 

280 Instrucción NEXT para ciclo externo. 

310 Asigna a la variable Jl FFIES el tiempo actual 
calculado por los timers. 

340 Modifica modo gráfico a 0. 

350 Edita el valor de la variable Jl FFIES. 
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Ejecute el programa y anote el tiempo emplea¬ 
do en su ejecución. 

A continuación digite el próximo listado, tam¬ 
bién en BASIC, que permite a través de la función 
USR realizar la misma operación anterior: 


168 REM « READ HL DATA INTG HLS 
170 DIM ML$(45) 

180 FOR 1=1 TO 45 

190 READ BYTE:HL$(I)=CHR$(BYTE) 

200 NEMT I 
210 REH 

220 REN * SET UP GRAPHICS HODE 
230 GRAPHICS 24 
240 REH 

250 REH * FILL SCREEN, GET TIHING 
260 JIFFIES=U5R(ADR(HLS)) 

270 REH 

280 REH * DISPLAY TIMER READING 
290 GRAPHICS 0 

300 PRINT JIFFIE5;" JIFFIES":EMD 
310 REH 

320 REH * DATA FOR HL ROUTINE 

330 DATA 104,169,0,133,19,133,20,162,3 

2,160.0,169,255.145,88,200,192,240,208 

,249,24,165,88,105 

348 DATA 240,133,88,165,89,105,0,133,8 
9,202,208,229,165,19,133,213,165,20,13 
3,212,96 


Comentario de líneas: 

170 Dimensiona la variable alfanumérica ML con 
45 caracteres que contendrá la rutina en má¬ 
quina. 

180-200 Ciclo que permite leer los caracteres de 
las líneas 330-340 y localizarlos en la variable 
alfanumérica. 

230 Incializa modo gráfico 24. 

260 Utiliza la función .USR en el formato: 

JIFFIES = USR (ADR(ML$)) 

que ejecuta los ciclos de las líneas 230-280 del 
listado 1. 

Es interesante destacar que el tiempo de de¬ 
mora retorna desde la función USR en la va¬ 
riable Jl FFI ES. 

290 Modifica a modo gráfico 0. 

300 Edita el valor de JIFFIES. 

330-340 DATA de la función USR. 


Ejecute el programa y compare los valores 
obtenidos. 

Para nuestros amigos que siguen las columnas 
Directo al 6502 y USR proporcionamos paralela¬ 
mente el listado en ASSEMBLER que corresponde 
a las líneas de DATA (330-340) del listado 2. 

De esta manera podrán practicar y utilizar los 
conocimientos de esta nueva columna de conti¬ 
nuidad en su revista MUNDOATARI. 


modo gráfico 24 con las correspondientes medicio¬ 
nes de tiempo: 


Ser I 1 

0 ( BASIC/ML/FDRTH BENCHNARK ) 

1 ( FORTH VERSION BY SALLY FORTH ) 

2 

3 0 VARIABLE READING 

4 

5 8B CONSTANT SCREEN 

6 

7 : SCREENFILL ( THE FILL LOOP ) 

8 32 0 DO 

9 240 0 DO 

10 255 I SCREEN 0 + C! 

11 LOOP 

12 240 SCREEN 0 + SCREEN ! 

13 LOOP j 

14 

15 --> 

Ser » 2 

0 ( BENCHKARK CONTINUED ) 

1 

2 ; BENCHKARK 

3 24 GR. 

4 0 19 ! ( 2ER0 TINERS ) 

5 SCREENFILL 

A 256 19 C0 « 20 C0 ♦ 

7 READING ! í SAVE READIN6 ) 

8 0 GR. 

9 READING 0 . ( SHON READING ) 

10 .* JIFFIES' CR } 

11 
12 

13 

14 

15 

_ 


El siguiente cuadro comparativo indica los 
tiempos aproximados: 



Jiffies 

Segundos 

ATARI BASIC 

4.316 

71,9 

FORTH 

236 

3,9 

ASSEMBLER 

5 

0,1 


Los siguientes listados deben ser listados y eje¬ 
cutados con el FORTH. Ellos muestran la imple- 
mentación de la rutina para llenar la pantalla en 


Esta comparación deja en muy mal pie al 
ATARI BASIC. Sin embargo este tiempo puede ser 
optimizado y reducido a 54 segundos (3.243 jiffies) f 
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TUTORIA: continuación 


si realizamos las siguientes modificaciones: 


100 GRAPHICS 74 

110 POKE 19,0 : P 0 K F. 20,0:SCREFN-PEEK(88 
)+256#PEEK(89) 

120 FOR I=5CREEN T0 5CREEN+7688:POKÉ I 
, 25E»: HEXT I: JIFFIES=PEEK (201 +256XPEEK ( 
19 ) 

130 GRAPHICS O 

140 PRIMT JIFFIES;" JIFFIES":EHD 


Comentario de líneas: 

100 Define modo 24. 

110 Inicializa localizaciones 19 y 20 y asigna a la 
variable SCREEN la primera localización de 
pantalla. 

120 Inicia ciclo para variable I. Valor inicial desde 
el valor de SCREEN hasta 7680 localizaciones 
superiores y asigna en la variable JIFFIES el 
valor del tiempo empleado. 

130 Modifica a modo gráfico 0. 

140 Edita el tiempo en pantalla. 

Ejecute el listado y compruebe lo afirmado. 

A continuación presentamos un nuevo listado 
que entusiasmará a los seguidores del ATARI BA¬ 
SIC, ya que permite reducir el tiempo de opera¬ 
ción a "12" jiffies sin usar la función USR. 

El secreto consiste en aplicar la técnica de la 
propagación en una variable alfanumérica. 

Digite el siguiente listado: 


100 GRAPHICS 24 

110 POKE 19,0:POKE 20,0 

120 DIM SS(7680) 

130 STRING=PEEK(140)+256*PEEK(141) 
140 SCREEH=PEEK(88)♦256KPEEK(89) 

150 TABLE=PEEK(134)4256*PEEK(135) 
160 0FF5ET=SCREEN - STRING 
170 HI=IHT(OFFSET/256) 

180 LO=OFFSET - (H1X256) 

190 POKE TABLE*2,L0:P0KE TABLE+3,HI 
200 5$(1.1)=CHR$(255) 

210 SS (7680.7680)=CHR$(255) 

220 S$(2)=5$ 

230 JIFFIE5-PEEK(20)+256*PEEK(19) 
240 GRAPHICS 0 

250 PRINT JIFFIES;" JIFFIES":END 


Comentario de líneas: 


160 Asigna en variable OFFSET la diferencia entre 
STRING y SCREEN. 

170 Busca el byte mayor de OFFSET. 

180 Busca el byte menor de OFFSET. 

190 Inserta los valores de posición de la variable 
STRING en la variable TABLE. 

200-220 Rutina de propagación de variable S$. 

230 Asigna a variable Jl FFIES el tiempo. 

240 Modifica a modo gráfico 0. 

250 Edita el valor de JIFFIES. 

Ejecute el listado y compruebe el tiempo. 

Los nuevos usuarios se preguntarán tal vez: 

¿Y qué pasa con el FORTH? 

El FORTFI por su parte también puede opti¬ 
mizar su ejecución usando la palabra FILL como 
lo muestra el próximo listado. La ejecución en 
este caso demora sólo 7 jiffies. 


Ser I 3 

0 ( FAST VERSION OF BENCHMARK ) 

1 ( BY SALLY FORTH ) 

2 

3 0 VARIABLE READING 

4 

5 88 CONSTANT SCREEN 

6 

7 1 BENCHHARK-2 

8 24 GR. 

9 0 19 ! 

10 SCREEN 8 7680 255 FILL 

11 256 19 ce * 20 ce ♦ 

12 READING ! 

13 0 GR. 

14 READING e . 

15 JIFFIES" CR 5 


CONCLUSIONES: 

El análisis de los listados anteriores y sus 
tiempos nos permite establecer lo siguiente: 


100 Define modo gráfico 24. 

110 Inicializa sistema de timers. 

120 Dimensiona la variable alfanumérica S$ con 
7.680 caracteres. Observe que este valor corres¬ 
ponde al total de posiciones de pantalla del 
modo 24. 

130 Asigna en la variáble STRING la localización 
que corresponde a la inicial de la variable alfa- 
numérica S$. 

140 Asigna en variable SCREEN la primera posi¬ 
ción de pantalla. 

150 Asigna en variable TABLE el valor en memo¬ 
ria para el puntero VVTP. * 


1. Ningún lenguaje de alto nivel puede ser más 
rápido que el lenguaje de máquina. 

2. El BASIC y el FORTH son lenguajes construi¬ 
dos en función de lenguaje de máquina, y su 
optimización depende de la práctica y habili¬ 
dad del programador. 

3. Es difícil optimizar la velocidad de BASIC 
sin recurrir a la función USR. 

Finalizando esta introducción debemos recor¬ 
dar que la velocidad no es el único factor que de¬ 
termina la evaluación de un lenguaje, existen otros 
como: facilidad de uso, grado de eficiencia, etc. • 
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PROGRAMAS: continuación 


l'D viene de página 17) 



500 REM LISTADO 

505 GRAPHICS 0¡POKE 82,0:POKE 83,38:P0 
KE 752,1:P0KE 53774,64:P0KE 16,64 

506 IF NP=0 THEN 6585 

510 POSITIOM 7,1:PRIHT "B>l TUiHT14.14:^ 4 

si" 

515 POSITIOM 1,3:PRIMT "ASIGNATURA: ": 
P05ITI0N 28,4:PRINT "CURSO: " 

528 POSITIOM Q,5:? "KEI1—■I.I.I.IJ-L— 


Nota 


528 E=1 


530 FOR 1=7 TO 18 

531 POSITIOM 0,1:? " 


532 IF E>MP THEN 566 

535 B$=" ":B$=ARCH$CE*65 - 64,E#65) 

536 IF E)1 THEN 542 

540 POSITION 14,3:? B$(26,41)¡POSITION 
35,4:? B$C42,44) 

542 IF E<10 THEM POSITION 2,1:? E 
544 IF E>-10 THEN POSITION 1,1:? E 
550 POSITIOM 5,1:? B$(1,25)¡POSITION 3 
2,1:? B$(63,65) 

558 E=E+1 
560 MEXT I 

570 POSITIOM 1,21:? "PRESIONE HUn-IM 
' PARA SEGUIR "¿:INPUT RS 
585 IF E<=NP THEN 530 
598 GOTO 105 

1000 REM INGRESO DE DATOS 
1005 B$=" ":B$(65)=" ":BS(2)=B$ 


1010 PONE 53774,64:P0KE 16,64:P0KE 752 
,1:? CHR$(125):GOSUB 6000 
1015 IF NP>50 THEN 1356 
1020 POSITION 10,1:? 


INGRESANDO DAT 


Qa":RU=l330 


1025 POSITION 2,3:? 
NPUT A5IG$:GOSUB 6530 


signatur 


S: 


:l 


1030 POSITION 25,4:? " ■tfliH.M ;»:: INPIIT 
CURS.’IF CUR$="#*» THEN 1O0O 
1035 GOSUB 6555:GOSUB 6570:MP=NPfl: N5= 
NP:IF NP>50 THEN 1350 
1048 POSITIOM 0,6:? N5;" :T 

NPUT NOM$:IF NONS^'##" THEN GOSUB 6550 
:NP=MP-l:GOTO 1030 

1041 B$(1,25)=N0M$ 

1042 B$(26,41)=A5IG$ 

1043 B$(42,44)=CUR$ 

1648 GOSUB 6568¡GOSUB 6510 

1050 POSITIOM 2,8:? ' «Till-gr ¡POSITION 


returr 


1,18:? " 

NI 

PROM. 

1" 


1065 GOSUB 6540 
1076 REM CALCULO DE NOTAS 
1072 POSITIOM 1,22:? "Tipee 0 
para terMinar" 

108O 1=0:P=0:PROM=0:N=12:PRM=0:Y=45 
1098 FOR Z=2 TO 28 5TEP 5:1=1+1 
1100 POSITIOM 1,20:? "INGRESE NOTA: 

I;" :input nx$:IF nx$="" tne» ? chr$ 
1253):NP=NP-l:GOTO 105 
1182 NX=UALCNK$) 

1103 GOSUB 6510:IF MX<-1 OR NX>7 THEN 
1100 

1105 IF NX=0 AND 1=1 THEN 1140 


1110 N (I)=NX:IF NX=0 THEN 1=1-1:Z=32:G 
OTO 114B 
1128 P=P+N(I) 

1125 B$tY,Y+2)=5TR$(NCI)>:Y=Y+3 
1130 POSITIOM Z,W:? MCI):NEXT Z 
1148 PRM=P/I:PROH=INT(10 aí*PRM+0 .53/10 

1142 IF 1=1 THEM A=7 

1143 IF 1=2 THEN A=12 

1144 IF 1=3 THEN A=17 

1145 IF 1=4 THEN A=22 

1146 IF 1=5 THEM A=27 


1147 IF 1=6 THEN 1150 

1148 FOR P=A TO 37¡POSITION P, H: ? " 
NEXT P 

1158 POSITION Z+2,W:? PRON:GOSUB 6510 
1160 GOSUB 6510 ¡POSITION 1,20:? "CORRI 
GE S/M "J:GET ttl,A:R$=CHR$(A) 

1165 IF R$="5" THEN 1870 :IF R$="N" THE 
N 1208:? CHR$(253)¡GOTO 1160 
1280 REM ARCHIVO 
1260 B$(63,65)=5TR$(PROH) 

1320 ARCH$(N5*65-64,MS*65)=B$ 

1325 B$=" ,, :B$(65)=" ":B$(2)=B$:GOSUB 
6510¡GOTO RU 
1327 REM 
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PROGRAMAS: continuación 


1338 POSITION i,20:? "IN6RESA OTIA S/N 
"j:GET Bl.AlRS^C-HRÍÍAlíGOSUB 6510 
1335 XF R$-"S" THEN 1835:XF TNE 

M 1345!? CHR$ (253)¡GOTO 1336 
1345 TRAP 1338:GOTO 105 
1348 REM 

1358 REM ARCHIVO LLENO 

1368 ? CHR$(125):POSITION 10,10:? CHR$ 

(253) J "ARCHIVO LLENO 

1365 FOR T=1 TO 408¡NEXT T:G0TO 165 

2000 REM MODIFICA PERSONAS 

2001 8$='' ": B$(65)-" " :B$(2) -B$ 

2002 GRAPHICS 8:P0KE 53774,64:POKE 16, 
64:P0KE 752,1:IF NP^O THEN 6585 

2004 POSITION 22,22:? “; 

NP 

2005 TRAP 2002¡POSITION 1,20:? "OUE NU 
ÑERO MODIFICA "J:INPUT NUM 

2607 TRAP 40060¡FOR M=1 TO NP 
2010 IF NUH-X THEN 2830 
2012 NEHT X 
2015 GOSUB 6510 

2020 POSITION 1,20:? CHR$(253)J" PERSO 
NA NO EXISTE EN LISTA" 

2025 FOR T=1 TO 300:NEXT T¡GOTO 105 
2030 B$- u ":B$=ARCH$(NUN*65-64,NUN*65) 

2035 N5=NUH _ 

2050 ? CHR$(125)¡POSITION 10,1:? '«SE 

namanriMafigiEra " 

2060 POSITION 2,3:? '«tttliEHUEl: ";B 
$C26,41) ¡POSITION 25,4:? 

(42,44): H=12 _ 

2065 POSITION 0,6:? X; "ttECaEi: "íBSC 
1,25) 

2067 POSITIOI 2,8:? " II.Difrll 1 *:POSITION 
1,18:? 



2870 POSITION 2,N:? B$(45, 47):PO5ITI0N 
7,N¡? B$(48,50)¡POSITION 12,W¡? BS(51 
,53)¡POSITION 17,Mi? B$Í54,56) 

2075 POSITION 22,N:? B$(57,55)¡POSITIO 
N 27, M:? B$(60,62) ¡POSITION 34, H: ? B$ ( 
63,65) 

2100 GOSIIB 6510¡POSITION 1,20:? "MODIF 
ICA S7N :GET Ui,A:R$=CHR$(A) 

2105 IF R$="r‘ THEN 2150:? CHR$(25I):G 
OTO 2100 

2108 IF R$= ,, 5" THEN 6620 
2110 RU=2150:GOSUB 6510:POSITION 1,20: 
? "MODIFICA NOMBRE Y NOTAS(1) O NOTASE 
21 " 

2120 POSITION 1,21:? "DIGITE NUMERO OP 


/ 


CION :GET ttl,A:R$rCHR$(A) 

2125 IF VAL (R$) (>1 THEN 2140 
2130 GOSUB 6580¡GOSUB 6510¡GOSUB 6520: 
GOSUB 66O0:GOSUB 6610:GOTO 1640 
2148 GOSUB 6510: GOSUB 6520 ¡GOSUB 6610: 
GOTO 1076 


2158 GOSUB 6518:GOSUB 6526¡POSITION 1, 
20!? "MODIFICA OTRA S/N :GET ttl,A 
2160 R$=CHR$(A):IF R$= ,, N" THEM 105 
2170 IF R$="5" THEN 2000:? CHR$C253):G 
OTO 2150 

3000 REM ELIMINA PERSONA 

3002 GRAPHICS 6:P0KE 53774,64:PONE 16, 

64 :POKE 752,1 

3004 IF NP=0 THEN 6585 


3005 POSITION 4,5:? 


i ELIMI 


niMTjnH»Tn] 


3010 POSITION 2,20:? "DEME NUMERO "j:I 
NPUT NUH 

3015 FOR X=1 TO NP:IF NUN=X THEN 3038: 
NEXT X 

3017 IF NUM:X THEM 3030 
3020 NEXT X 

3025 GOSUB 6510¡POSITION 2,20:? 'MHÍE 
? CHR$ (253): FOR T=1 TO 
480:NEXT T:GOTO 185 
3030 REM BORRA 
3035 PI-1+65*(X-1):PF=PI+64 

304© IF LEN(ARCH$)=65 THEN ... 

OTO 3060 

3044 TRAP 400O0 

3045 IF PI=1 THEN ARCH$=ARCH$(PF*1):GO 
TO 3060 

3050 IF NUM=NP THEN ARCH$=ARCH$(1,PF-6 
5) ¡GOTO 3060 

3055 ARCN$CLEN(ARCH$(l,PI-l)m)=ARCN$ 
(PF+1) 

3068 GOSUB 6510! NP=NP-i ¡POSITION 3,20: 
? CHR$ (253): ,I M ":F0 
R T=1 TO 400:MEXT T 

3070 POSITION 1,20:? "DESEA ELIMINAR O 
TRA 5/1 "j:6ET ttl,A:R$=CHR$(A) 

3000 IF R$-"S" THEN 3080 
3090 GOTO 105 

3500 REM IMPRESION 

3501 GRAPHICS 0:POKE 82,0:PONE 83,38:P 
OKE 53774,64:POKE 16,64:POKE 752,1 

3502 IF NP-0 THEN 6585 :EL=1 
3504 POSITION 8,5:? 1 

•:? :? :? “ ANTES DE ESCOGER 

_ DEBE ":? 

3506 ? " ENCENDER LA IMPRESORA." 


OPCION 
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PROGRAMAS: continuación . 


5045 POSITIOI 3,15:? "PRESIDIE RETURI 
CIJfiN&O ESTE LISTO •*; :IIPÜT R$ 

seso püsition 10 , 21 :? 'MsÉHSHSHKISS 
uEjfiíDH": c 10 SE m 

5660 OPEI #2,8,8,"C:" 

5076 FOR E-l TO NP 

5080 B$=" " :B$=flRCH$CE#65-64 ,E*655 ¡PRI 
NT #2 ;B$ 

5096 MÉHT É:CIOSE #2 

589Z ARCH$-" ":ftRCH$ (65603 ;•* ":ARCH$(2 
}rftRCH$:POP :IPr-fl; GOSUB 5280 
5095 POP 60TÓ 105 

5280 REH GENERO O LEE ARCHIVO EN CA55E 

TTE 

5218 ? CHR$Ci253: CIOSE ttliOPEN «1,4,8, 
"l:" 

5230 POfíITIOM 2,4:? "B LEER ARCHIVO 
DE5AE CASSETTE" 

5240 P85ITIOI 2,6:? "O CREAR ARCHIV 
O El CASSETTE" 

5250 POSITIOI 2,8:? "d frffNU PRIMCIP 
AL" 

5260 P05ITIOI 2,Z0:? "ESCOJA UNA LETRA 
¡ “;:GET tti ,A;R$=CHR$ (A) 

5270' IF R$="L" THEI 5506 

5288 IF R$="C" THEI POP :G0T8 1680 

5299 IF R$r"lf THEI RETiBtN 

5390 GOTO 5280 

5508 REH LEE ARCHIVO AESDE CASSETTE 
5518 ? CHRSÍ125) 

5521 P05ITION 10,2¡? 

mi » 1 

5550 POSITION 6,5:? "PASOS A 5EÍUIR" 
5548 POSITIOI 1,7;? "1- Rebobine Cinta 

II ' 

5550 POSITIOI 1,9:? "2- Presione Tecla 
PLAY de la Grabadora" 

5561 PG5ITIGN 1,11:? "3- Presione 2 Ve 
ces Tecla RETURN" 

5570 PO SI TI OM 1,16:? "PRE5I8HE IETURM 
CIJA NA O ESTE II5T0 ";:INPUT 1$ 

5580 POSITIOI 10,21:? « ■rararaMB-HTl 
IMM »¡CtOSE «2 

5590 OPEI #2,4,8, "C :" :ARCH$ 7' " :IP:0 
5595 TRAP 5620 . 

560O B$-" "¡INPUT #2; B$ ¡IP^NP+l 

5610 ARCHSíWP*65-6*,MP*653=B$ ¡GOTO 560 

8 

5620 TRAP 40908 :IF PEEK (1953=136 THEI 
CIOSE #2: GOTO 105 


5630 POP 

5798 REI RltTIIA DE ERROR 
5718 ? CHR$(125) ;? CHR$(253) 

5 720 PO 51 TI OM 8,2!? 1 

na* 

5738 POSITIOI 3,7!? "LO LAHEITO, NO HA 
CARGADO EL PRO- GRAMA COMPLETA. 
REPITA LA ACCIGI" 

5735 POSITION 3,9:? "O AEBEIfi CREAR AR 
CHIVO DE LO COI- TRARIO NO POARA 5 
EGUIft A DE LA IT E" 

5740 POSITION 2,20:? "PRESIONE RETURI 
PARA CONTINUAR ";:IIPUT R$;6ÜT0 189 
6090 REI LIMPIA VARIABLES 
6010 ... ":CDR$=" ":IOH$-" 

II 

6580 REH LIMPIA LINEAS 
6510 POSITION O,20:? " 

"¡RETURI 

6521 POSITIOI 8,21:? " 

"¡RETURI 

6539 POSITION 1,22:? "Tipee «* para C« 

rregir ";RETURI 

6548 POSITION 0,22:? " 

RETURH 

6558 P05ITIOI 34,4:? " "¡RETURI 
6555 POSITIOI 8,6:? “ 

RETURI 

6560 GOSUB 6519:POSITIOI 1,20:? "CORRI 
GE 57 N "¡ ¡IIPUT R$ :IF R$="N« THENi 6548 
6565 IF R$="5" THEI POSITION 8,5 " 

"¡GOTO 1046 
6578 POSITION tí,12¡? " 

":RETUR# 

6588 POSITION 12,6:? " 

"¡RETURI 

6585 ? CHR$Í125)JCKR$(2533 

6586 POSITION 1,6:? " Lo siento, lo qu 
e dé< solicita no se puede realizar. 

No tengo registros en rtNORIA" 


Debe ere 


3E»i ,, :F0R T-l TO 480: NEHT T ¡GOTO 180 
6690 B$Ci)= M ":B$C25)=" ":B$(2)-B$:RET 

URN 

6618 FOR ZZ-45 TO 65:BSCZZ,ZZJ=" "¡MEK 
T ZZ:RETURN 

6628 GOSUB 6518:POSITION 1,20:? "INGRE 
SE CLAVE AE ACCESO ¡ ";:IMPUT R$ 

6622 IF S$="GCQ" THEI 2110 
6624 ? CHR$(125) ;CHR$C253) ¡POSITIOI 19 
,5:? ' WHfflñK-TililM ":? :? :? " SO 

LO PUEDE VER DATOS "¡GOTO 2158 # 
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ATARI 

130 XE 

Gane 
64 Kb de memoria 


CARACTERISTICAS DEL ATARI 130 XE: 

Computador de 128 Kbytes de memoria RAM, 
controlable por programa. Puede utilizar 64 Kb de 
la memoria como RAMDISK, sistema virtual 
que simula una Unidad de Disco en memoria. 
Cuenta con 16 modos gráficos distintos, 5 de los 
cuales son modos de texto. 

Pose.e 4 sintetizadores electrónicos de sonido. 

Tiene teclado profesional de 67 teclas corrientes 
y 5 de funciones especiales, set de caracteres en 
castellano y 29 caracteres gráficos especiales. 

Se puede programar en varios lenguajes: BASIC, 
LOGO, ASSEMBLER, PILOT, PASCAL y FORTH 



LOTA 2442 S 2320557 






POTENCIA 
VELOCIDAD 
SEGURIDAD 

AHORA A BAJOS COSTOS PUEDE SER 
UNA REALIDAD EN TU COLEGIO j 

VIICRORED MUNDOATARI 



>UEDES USAR EL TALLER PARA: 

JIVELACION ALUMNOS 
'REPARACION DE P.A.A. 

JSO DE UTILITARIOS 
'LANILLAS 
JASE DE DATOS 
>ROC. DE TEXTOS 


INFORMES 

LOS LEONES 308 
S 2320557 



















PC COMPATIBLE 

desde $ 185.000 

(IVA incluido) 


BELTRON 


COMPUTADORES BELTRON 


















































The Coca-Cola Company. 













AHORA EN 

MUNDOATARI 

IMPRESORAS 

PANASONIC 
1080i - 144cps. 









